﻿Public Class ven_prop_mat_datop

    Private Sub btn_ok_ven_prop_mat_datop_Click(sender As Object, e As EventArgs) Handles btn_ok_ven_prop_mat_datop.Click
        If txtNrev.Text = "" Then
            MsgBox("Ingrese la velocidad de giro del eje")
        Else
            nrev = Convert.ToDouble(txtNrev.Text)
            nrev = nrev * (3.141592) / 30.0
            Me.Close()
        End If
    End Sub

    Private Sub btn_eleccion_material_Click(sender As Object, e As EventArgs) Handles btn_eleccion_material.Click
        ven_eleccion_material.Show()
    End Sub

    Private Sub btn_ingrese_manual_propmat_Click(sender As Object, e As EventArgs) Handles btn_ingrese_manual_propmat.Click
        ven_ingrese_manual_propmat.Show()
    End Sub

    Private Sub btn_helpmatop_Click(sender As Object, e As EventArgs) Handles btn_helpmatop.Click
        ven_helpdatop.Show()
    End Sub
End Class